MacWorld 1998 January/Macworld (1998-01).dmg/Serious Demos/Visual MacStandardBasic Demo/Samples/Controls Demo/Form1

Text File | 1997-09-29 | 4KB | 265 lines

MacStandardBasic Form Version 3.0

    FormBegin
      Name=Form1
      Title=Control Demo
      Left=100
      Top=50
      Width=377
      Height=308
      Sub Proc.=Form1_Event
      Visible=1
      Style=5
      Enabled=1
      Font=Geneva
      FontSize=12
      FontStyle=0
      Show Grid=1
      Grid Snap=1
      Grid Size=8
      Min. Width=100
      Max. Width=2000
      Min. Height=100
      Max. Height=2000
      AutoCenter=0
      ForeColor=0 0 0
      BackColor=65535 65535 65535
    FormEnd

    ControlBegin=Label
      Name=Label1
      Text=Event:
      Left (x)=24
      Top (y)=16
      Width=40
      Height=16
      Sub Proc.=None
      Visible=1
      Enabled=1
      Font=Geneva
      FontSize=12
      FontStyle=0
      Opt20=1
      ForeColor=0 0 0
      BackColor=65535 65535 65535
    ControlEnd

    ControlBegin=Label
      Name=Label2
      Text=
      Left (x)=72
      Top (y)=16
      Width=201
      Height=17
      Sub Proc.=None
      Visible=1
      Enabled=1
      Font=Geneva
      FontSize=12
      FontStyle=0
      Opt20=2
      ForeColor=0 0 0
      BackColor=65535 65535 65535
    ControlEnd

    ControlBegin=Radio
      Name=Radio1
      Text=Radio1
      Left (x)=32
      Top (y)=72
      Width=72
      Height=16
      Sub Proc.=Radio1_Click
      Visible=1
      Value=1
      Enabled=1
      PgUpDn=1
      Opt20=1
    ControlEnd

    ControlBegin=Radio
      Name=Radio2
      Text=Radio2
      Left (x)=32
      Top (y)=96
      Width=72
      Height=24
      Sub Proc.=Radio2_Click
      Visible=1
      Value=0
      Enabled=1
      PgUpDn=1
      Opt20=2
    ControlEnd

    ControlBegin=CheckBox
      Name=CheckBox1
      Text=CheckBox1
      Left (x)=32
      Top (y)=136
      Width=120
      Height=24
      Sub Proc.=CheckBox1_Click
      Visible=1
      Value=0
      Enabled=1
      Opt20=1
    ControlEnd

    ControlBegin=DropList
      Name=DropList1
      Text=Item1|Item2|Item3
      Left (x)=32
      Top (y)=176
      Width=120
      Height=20
      Sub Proc.=DropList1_Click
      Visible=1
      Value=0
      Enabled=1
      Opt20=1
    ControlEnd

    ControlBegin=Button
      Name=Button1
      Text=Button1
      Left (x)=256
      Top (y)=240
      Width=97
      Height=33
      Sub Proc.=Button1_Click
      Visible=1
      Value=0
      Enabled=1
      Opt20=1
    ControlEnd

    ControlBegin=Icon
      Name=Icon1
      Left (x)=24
      Top (y)=224
      Width=57
      Height=57
      Sub Proc.=Icon1_Click
      Visible=1
      Value=2000
      Enabled=1
      Opt20=1
      Frame=0
    ControlEnd

    ControlBegin=Picture
      Name=Picture1
      Left (x)=184
      Top (y)=48
      Width=144
      Height=112
      Sub Proc.=Picture1_Click
      Visible=1
      Value=2500
      Enabled=1
      Opt20=1
      Frame=0
    ControlEnd

    ControlBegin=ScrollBar
      Name=ScrollBar1
      Left (x)=112
      Top (y)=240
      Width=120
      Height=16
      Sub Proc.=ScrollBar1_Click
      Visible=1
      Value=1
      Enabled=1
      Min. Value=1
      Max. Value=10
      PgUpDn=2
      Opt20=1
    ControlEnd

Start
    Dim A

    CreateTheMenus
    Form Form1

    A=0
    Do While A=0
    Loop
Finish

Sub CreateTheMenus( )
    MenuApple
    MenuAddItem 1, "About Controls Demo", "", AboutTheApp
    MenuDesk
    MenuAdd 2, "File", None
    MenuAddItem 2, "Quit", "Q", QuitTheApp

EndSub

Sub QuitTheApp( )
    End
EndSub

Sub AboutTheApp( )
    Dim a
    a = MsgBox ("Controls Demo"+chr(13), 0)
EndSub

Sub Form1_Event( )
    If EventCode(0) = 1 Then CtlText Label2, "Window area selected",0


EndSub

Sub Radio1_Click( )
    CtlText Label2, "Radio1 selected",0



EndSub

Sub Radio2_Click( )
    CtlText Label2, "Radio2 selected",0



EndSub

Sub CheckBox1_Click( )
        CtlText Label2, "Checkbox1 selected",0


EndSub

Sub DropList1_Click( )
    CtlText Label2, "Item"+Str(CtlValue(DropList1),0)+" of DropList1 selected",0


EndSub

Sub Button1_Click( )
    CtlText Label2, "Button1 selected",0

EndSub

Sub Picture1_Click( )
    CtlText Label2, "Picture1 selected",0

EndSub

Sub Icon1_Click( )
    CtlText Label2, "Icon1 selected",0


EndSub

Sub ScrollBar1_Click( )
    CtlText Label2, "ScrollBar1 set to "+Str(CtlValue(Scrollbar1),0),0



EndSub